home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / chunky.lha / chunky_ppc / GetPixel32Z.ass < prev    next >
Encoding:
Text File  |  1980-01-25  |  448 b   |  31 lines
  1. # GetPixel32Z(chunky:r3:PTR TO chunky,x:r4:LONG,y:r5:LONG)(r3:L,f1:F)
  2.  
  3.     .text
  4.     .global    _GetPixel32Z
  5.  
  6. _GetPixel32Z:
  7.     mr.    r7,r3
  8.     beq    .finish
  9.     mr.    r4,r4
  10.     blt    .finish
  11.     mr.    r5,r5
  12.     blt    .finish
  13.     lwz    r8,0(r7)
  14.     cmpw    r4,r8
  15.     bge    .finish
  16.     lwz    r0,4(r7)
  17.     cmpw    r5,r0
  18.     bge    .finish
  19.  
  20.     lwz    r9,8(r7)
  21.     mullw    r5,r5,r8
  22.     add    r5,r5,r4
  23.     slwi    r5,r5,2
  24.     lwzx    r3,r9,r5
  25.     lwz    r9,12(r7)
  26.     lfsx    f1,r9,r5
  27. .finish:    blr
  28.  
  29.     .type    _GetPixel32Z,@function
  30.     .size    _GetPixel32Z,$-_GetPixel32Z
  31.